home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / source / propgadget.lha / PropGadget / clean2.inc < prev    next >
Text File  |  1989-11-30  |  296b  |  15 lines
  1.  
  2. extern struct IntuitionBase *IntuitionBase;
  3. extern struct GfxBase *GfxBase;
  4.  
  5. void CleanUp(message) 
  6. FAST TEXT *message;
  7. { 
  8.   puts(message);
  9.  
  10.   if (GfxBase !=NULL) CloseLibrary((struct Library *)GfxBase);
  11.   if (IntuitionBase!=NULL) CloseLibrary((struct Library *)IntuitionBase);
  12.   exit(TRUE);
  13. }
  14.  
  15.